home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
windows
/
ezdia175.zip
/
TESTBED.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-02-27
|
30KB
|
951 lines
program testbed;
{$R testbed.RES}
uses wincrt, WObjects, WinTypes, WinProcs, strings, StdDlgs, StdWnds,
dialunit;
const
IO_AREA_SIZE = 65000;
CURSOR_CHAR = '|';
cm_specparam = 101;
cm_establink = 102;
cm_hangup = 103;
cm_callbbs = 104;
cm_xmodemdown= 105;
cm_xmodemup = 106;
cm_xmod1kdown= 107;
cm_xmod1kup = 108;
cm_ymodemdown= 109;
cm_ymodemup = 110;
cm_interrupt = 111;
cm_addresponse=112;
cm_linktoport =113;
cm_exit = 001;
cm_download = 201;
cm_upload = 202;
cm_movedown = 203;
cm_moveup = 204;
cm_update = 205;
cm_mailupdate= 206;
cm_zipserver = 301;
cm_zipclient = 302;
cm_unzipserver = 401;
cm_unzipclient = 402;
cm_runserver = 501;
cm_runclient = 502;
cm_lnchserver= 503;
cm_lnchclient= 504;
cm_delServer = 601;
cm_delClient = 602;
cm_UseHelp = 905;
cm_HelpAbout = 999;
cm_DialupStatus = 145;
cm_DialupBanner = 146;
cm_DialupBytes = 147;
cm_DialupElapsed = 148;
cm_DialupBPS = 149;
cm_DialupPercent = 150;
cm_CommandCompleted = 151;
cm_ZipStatus = 152;
cm_CommNotify = 160;
cm_EventNotify = 161;
id_messagearea = 101;
id_notifyarea = 902;
type
TTestBedApp = object(TApplication)
procedure InitMainWindow; virtual;
procedure InitInstance; virtual;
end;
pMultiFieldDlg = ^TMultiFieldDlg;
TMultiFieldDlg= object(Tdialog)
NumFields:integer;
Chk:pcheckbox;
procedure SetupWindow; virtual;
procedure EndDlg(ARetValue: Integer); virtual;
constructor Init(AParent: PWindowsObject; AName: PChar;aNumFields:integer);
end;
PStatusWindow= ^TStatusWindow;
TStatusWindow = object(TDlgWindow)
MessagesArea:plistbox;
NotificationsArea:plistbox;
MyParent : pWindow;
constructor Init(AParent: PWindowsObject;
AName: PChar);
procedure SetupWindow; virtual;
procedure WMSetFocus(var Msg: TMessage);
virtual WM_First + WM_setfocus;
end;
PTTestBedWindow = ^TTestBedWindow;
TTestBedWindow = object(TWindow)
MyScroller : pscroller;
StatusWindow : pStatusWindow;
IORow,IOLine:integer;
IOWindow : pdialog;
IOChannelOpen:boolean;
CallInProgress:boolean;
HangupRequested:boolean;
NumLines :word;
LinesPerScreen:word;
LastKey:char;
IOArea :pchar;
IOAreaIndex :word;
CommandSerialNumber:word;
constructor Init(AParent: PWindowsObject; ATitle: PChar);
destructor Done; virtual;
procedure SetupWindow; virtual;
procedure GetWindowClass(var AWndClass:TWndCLass); virtual;
procedure Paint(PaintDC: HDC; var PaintInfo: TPaintStruct); virtual;
function CanClose: boolean; virtual;
procedure WMChar(var Msg: TMessage);
virtual WM_First + WM_char;
function RunDialog(Title,Label1,Label2,Label3:string;
NumFields:integer):boolean; virtual;
procedure PrepNotifications; virtual;
(* Responses to user input... *)
{File...}
procedure FileExit(var Msg: TMessage);
virtual cm_First + cm_exit;
{Connection...}
procedure SpecParam(var Msg: TMessage);
virtual cm_First + cm_specparam;
procedure EstabLink(var Msg: TMessage);
virtual cm_First + cm_establink;
procedure AddAutoResponse(var Msg: TMessage);
virtual cm_First + cm_addresponse;
procedure CallBBS(var Msg: TMessage);
virtual cm_First + cm_callbbs;
procedure LinkToPort(var Msg: TMessage);
virtual cm_First + cm_linktoport;
procedure Hangup(var Msg: TMessage);
virtual cm_First + cm_hangup;
{Transfer...}
procedure DownLoad(var Msg: TMessage);
virtual cm_First + cm_download;
procedure UpLoad(var Msg: TMessage);
virtual cm_First + cm_upload;
procedure MoveDown(var Msg: TMessage);
virtual cm_First + cm_movedown;
procedure MoveUp(var Msg: TMessage);
virtual cm_First + cm_moveup;
procedure UpdateClient(var Msg: TMessage);
virtual cm_First + cm_update;
procedure UpdateEZMail(var Msg: TMessage);
virtual cm_First + cm_mailupdate;
{Zip...}
procedure ZipServer(var Msg: TMessage);
virtual cm_First + cm_zipserver;
procedure ZipClient(var Msg: TMessage);
virtual cm_First + cm_zipclient;
procedure UnZipServer(var Msg: TMessage);
virtual cm_First + cm_unzipserver;
procedure UnZipClient(var Msg: TMessage);
virtual cm_First + cm_unzipclient;
{Execute...}
procedure RunServer(var Msg: TMessage);
virtual cm_First + cm_runserver;
procedure RunClient(var Msg: TMessage);
virtual cm_First + cm_runclient;
procedure LnchServer(var Msg: TMessage);
virtual cm_First + cm_lnchserver;
procedure LnchClient(var Msg: TMessage);
virtual cm_First + cm_lnchclient;
{Delete...}
procedure DelServer(var Msg: TMessage);
virtual cm_First + cm_delserver;
procedure DelClient(var Msg: TMessage);
virtual cm_First + cm_delclient;
{X-Ymodem}
procedure XmodemDownload(var Msg: TMessage);
virtual cm_First + cm_xmodemdown;
procedure XmodemUpload(var Msg: TMessage);
virtual cm_First + cm_xmodemup;
procedure Xmodem1KDownload(var Msg: TMessage);
virtual cm_First + cm_xmod1kdown;
procedure Xmodem1KUpload(var Msg: TMessage);
virtual cm_First + cm_xmod1kup;
procedure YmodemDownload(var Msg: TMessage);
virtual cm_First + cm_ymodemdown;
procedure YmodemUpload(var Msg: TMessage);
virtual cm_First + cm_ymodemup;
procedure InterruptTransfer(var Msg: TMessage);
virtual cm_First + cm_interrupt;
{Help}
procedure UseHelp(var Msg: TMessage);
virtual cm_First + cm_UseHelp;
procedure HelpAbout(var Msg: TMessage);
virtual cm_First + cm_HelpAbout;
(* Responses to EZdialup messages... *)
procedure NewDialupStatus(var Msg:Tmessage);
virtual wm_user + cm_DialupStatus;